home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8608a.d64 / listing 1.(allg) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  242b  |  13 lines
  1. 5 REM -------- TRANS 0 ----------------
  2. 10 DATA 0,0,15,0,15,9,7,5,13,0,9
  3. 20 DIM X(6),Y(6)
  4. 30 FOR I=1 TO 5 : READ X(I),Y(I) : NEXT
  5. 40 X(6)=X(1) : Y(6)=Y(1)
  6. 50 INIT
  7. 60 START
  8. 70 FOR I=1 TO 5
  9. 80 :LINE(X(I),Y(I),X(I+1),Y(I+1))
  10. 90 NEXT
  11. 100 SHOW
  12. 110 NORMAL
  13.